Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d18/nrpas13.arc/BICO.PAS

Pascal/Delphi Source File | 1991-05-01 | 106b | 5 lines

FUNCTION bico(n,k: integer): real;
BEGIN
   bico := round(exp(factln(n)-factln(k)-factln(n-k)));
END;